home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 100 / 100.d81 / oogle boogle (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  62 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:dimb$(3,16):r=rnd(-ti)
  3. 20 open2,dv,2,"ob list"
  4. 22 get#2,a$,a$
  5. 24 fori=0to2:forj=0to15
  6. 26 input#2,b$(i,j)
  7. 28 next:next:close2
  8. 30 x(0)=1:x(1)=15:x(2)=27
  9. 40 goto100
  10. 50 fori=0to2:print"[155]":forj=0to15
  11. 52 printtab(x(i))b$(i,j)
  12. 54 next:next:return
  13. 100 print"[147][129]         [207][207][199][204][197] [194][207][207][199][204][197] [199][197][206][197][210][193][212][207][210]"
  14. 110 print"     [198]rom the mind of [198]rank [214]anaman"
  15. 120 gosub50
  16. 150 print"[159] [213]se [195][210][211][210] keys[159] and [211][208][193][195][197][159] to highlight
  17. 152 [153]" one word in each column.  (NULL)ress (NULL)open for
  18. 154 print" a random pick.  [208]ress [209][159] to quit."
  19. 200 x=0:y=0:f(0)=0:f(1)=0:f(2)=0:w$(0)="":w$(1)="":w$(2)=""
  20. 210 iff(0)+f(1)+f(2)=3then300
  21. 215 poke214,3+y:print:printtab(x(x))""b$(x,y)"[145]"
  22. 220 poke198,0
  23. 230 geta$:ifa$=""then230
  24. 232 ifw$(x)=b$(x,y)thenprinttab(x(x))"[158]"b$(x,y):goto240
  25. 234 printtab(x(x))"[155]"b$(x,y)
  26. 238 ifa$="r"then400
  27. 240 ifa$="q"then500
  28. 242 ifa$<>" "then250
  29. 244 iff(x)then247
  30. 246 printtab(x(x))"[145][158]"b$(x,y):f(x)=1:w$(x)=b$(x,y)
  31. 247 x=x+1:ifx>2thenx=0
  32. 248 goto210
  33. 250 ifa$="[145]"theny=y-1:ify<0theny=15
  34. 260 ifa$=""theny=y+1:ify>15theny=0
  35. 270 ifa$=""thenx=x+1:ifx>2thenx=0
  36. 280 ifa$="[157]"thenx=x-1:ifx<0thenx=2
  37. 290 goto210
  38. 300 fori=20to23:poke781,i:sys59903:next
  39. 310 poke214,20:print
  40. 320 print"[154] [193]s an [207]ogle [194]oogler, you may now say
  41. 330 ww$[178]w$(0)[170]" "[170]w$(1)[170]" "[170]w$(2)
  42. 335 [153][163]19[171]([195](ww$)[173]2))"open"ww$
  43. 340 [153]" contand be thought of as wise and smart."
  44. 345 [153][163]14)"(NULL)ress a key"
  45. 350 [151]198,0
  46. 360 [161]a$:[139]a$[178]""[167]360
  47. 370 [137]100
  48. 400 [141]50
  49. 410 [129]i[178]0[164]2:r[178][181]([187](1)[172]15)
  50. 420 [151]214,3[170]r:[153]:[153][163]x(i))"sys"b$(i,r)
  51. 430 w$(i)[178]b$(i,r)
  52. 440 [130]
  53. 450 [137]300
  54. 500 [129]i[178]8[164]9:[159]15,i,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  55. 510 [139]er[178]63[167]dv[178]i:i[178]9:[130]:[137]530
  56. 520 [130]:[153]"load":[128]
  57. 530 [153]"loadstopload"[199](34)"hello connect"[199](34)","dv
  58. 540 [153]"run"
  59. 550 [151]631,13:[151]632,13:[151]198,2:[128]
  60. 999 [137]999
  61. 10000 [159]15,8,15,"s0:oogle boogle":[160]15:[148]"oogle boogle",8:[128]
  62.